perm filename MICR[1,LCS] blob sn#305779 filedate 1977-09-19 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE
C00003 ENDMK
CāŠ—;
PRECEDE;
COMMENT: FUNCTION MICRO(BASE_FREQ, STEP_NUM, OCT_DIV)
	OCT_DIV = NUMBER OF EQUAL DIVISIONS OF THE OCTAVE.;
	
FUNCTION MICRO(BF, SN, OD);
	BEGIN
	BF ā† BF*EXP(SN/OD * ALOG(2.));
COMMENT:BF ā† BF*2**(SN/OD);
	PRINT BF;
	END;
*
TOOT  ;
P2 RH/15X15/4;
P3 C4;
P4 1000;
P5 F1;
P6 FUNC/5/3/4/6/3;
P8 NUM/0/1/2/3/4/5/6/7/8/9/10/11/12/13/14/15/FINE;
P9 15;
P10 "MICRO(P3,P8,P9)";
END;